home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1008 / cool.r20 < prev    next >
Encoding:
Text File  |  1994-03-03  |  907 b   |  30 lines
  1. {R20:}
  2. {M1:}
  3. {M2:
  4. /Set new graphics mode use LOOP with chain gang to do a quickie@
  5. {b0:&0,360,2,0,>CL@,13,0)1,-225:1)179,239,x,0:1)179,239,y,479:
  6. &0,480,1,0,>CL@,13,0)1,-225:1)179,239,359,y:1)179,239,0,x:
  7.  
  8. b1:&0,480,1,0,>CL@,13,0)1,!225:1)179,239,359,y:1)179,239,0,x:
  9. &0,360,2,0,>CL@,13,0)1,!225:1)179,239,x,0:1)179,239,y,479:
  10.  
  11. /SHOUT - DEVO@
  12. n0,4010,4,1:t9:n0,4010,1,1:t1:n0,4010,1,1:t4:n0
  13. ,2710,5,1:t12:n0,4010,3,1:t5:n0,2710,3,1:t3:n0,2430,3,1:
  14. t6:n0,3000,9,1:t6:n0,4010,2,1:t4:n0,4010,1,1:t1:n0,4010,
  15. 1,1:t4:n0,2710,8,1:t10:n0,4010,3,1:t4:n0,2710,4,1:t6:n0,
  16. 2430,4,1:t3:n0,2260,12,1:
  17.  
  18. M2:
  19. b8:&0,360,2,0,>CL@,13,0)1,-225:1)179,239,x,0:1)179,239,y,479:
  20. &0,480,1,0,>CL@,13,0)1,-225:1)179,239,359,y:1)179,239,0,x:
  21.  
  22. b9:&0,480,1,0,>CL@,13,0)1,!225:1)179,239,359,y:1)179,239,0,x:
  23. &0,360,2,0,>CL@,13,0)1,!225:1)179,239,x,0:1)179,239,y,479:
  24.  
  25. t74:
  26.  
  27.  
  28. {M1:R3:}#A#B#D#A#C#D#E
  29.  
  30.